Imports CapaDeNegocios
Partial Public Class FrmListadoImputacionesRecibo
    Inherits System.Web.UI.Page
    Private Recibo As nRecibo = New nRecibo()
    Private impRecCaja As nImpRecCaja = New nImpRecCaja()
    Private impRecRet As nImpRecRet = New nImpRecRet()
    Private impRecCuenta As nImpRecCuenta = New nImpRecCuenta()
    Private impRecCheque As nImpRecCheque = New nImpRecCheque()
    Private ChequeTerceros As CapaDeNegocios.nChequesTerceros = New CapaDeNegocios.nChequesTerceros
    Private Banco As CapaDeNegocios.nBanco = New CapaDeNegocios.nBanco
    Private Cuenta As CapaDeNegocios.nCuenta = New CapaDeNegocios.nCuenta
    Private Retencion As nRetencion = New nRetencion()

    Dim DtsImputaciones As New DataSet
    Dim IdRecibo As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        If Not Page.IsPostBack Then

            IdRecibo = Request.QueryString("IDRecibo")
            'IdRecibo = "21"
            DtsImputaciones = New DataSet()
            DtsImputaciones.Tables.Add("TblImputaciones")
            DtsImputaciones.Tables(0).Columns.Add("Nombre")
            DtsImputaciones.Tables(0).Columns.Add("Total")
            DtsImputaciones.Tables(0).Columns.Add("Banco")
            DtsImputaciones.Tables(0).Columns.Add("Cuenta")
            DtsImputaciones.Tables(0).Columns.Add("FechaVence")
            DtsImputaciones.Tables(0).Columns.Add("FechaEmision")
            DtsImputaciones.Tables(0).Columns.Add("Observacion")
            DtsImputaciones.Tables(0).Columns.Add("ANombreDe")
            DtsImputaciones.Tables(0).Columns.Add("IdCheque")
            DtsImputaciones.Tables(0).Columns.Add("NumeroRetencion")
            DtsImputaciones.Tables(0).Columns.Add("DescripcionRetencion")

            Dim dtsAux As DataSet = impRecCaja.BuscarFiltrado("", "", IdRecibo)
            For Each row As DataRow In dtsAux.Tables(0).Rows
                Dim dr As DataRow = DtsImputaciones.Tables(0).NewRow()
                dr("Nombre") = "Caja"
                dr("Total") = row("Importe").ToString
                DtsImputaciones.Tables(0).Rows.Add(dr)
            Next

            Dim dtsAuxId As DataSet = impRecCheque.BuscarFiltrado("", IdRecibo, "")
            For Each rowId As DataRow In dtsAuxId.Tables(0).Rows
                dtsAux = ChequeTerceros.BuscarCheque(rowId("IdCheque").ToString(), "", "", "", "", "", "", "")
                For Each row As DataRow In dtsAux.Tables(0).Rows
                    Dim dr As DataRow = DtsImputaciones.Tables(0).NewRow()
                    dr("Nombre") = "Cheque"
                    dr("Total") = row("Importe").ToString()
                    dr("FechaVence") = row("FechaVence").ToString()
                    dr("FechaEmision") = row("FechaEmision").ToString()
                    dr("Observacion") = row("Observacion").ToString()
                    dr("ANombreDe") = row("ANombreDe").ToString()
                    dr("IdCheque") = row("IdCheque").ToString()
                    DtsImputaciones.Tables(0).Rows.Add(dr)
                Next
            Next

            dtsAuxId = impRecCuenta.BuscarFiltrado("", IdRecibo, "")
            For Each rowId As DataRow In dtsAuxId.Tables(0).Rows
                dtsAux = Cuenta.ListarCuenta(CInt(rowId("IdCuenta").ToString), "", "", 0, "")
                For Each row As DataRow In dtsAux.Tables(0).Rows
                    Dim dr As DataRow = DtsImputaciones.Tables(0).NewRow()
                    dr("Nombre") = "Cuenta"
                    dr("Total") = rowId("Importe").ToString()
                    dr("Banco") = Banco.ListarBanco(CInt(row("CodigoBanco").ToString), "", "").Tables(0).Rows(0)("Denominacion").ToString()
                    dr("Cuenta") = row("NumeroCuenta").ToString()
                    DtsImputaciones.Tables(0).Rows.Add(dr)
                Next
            Next

            dtsAuxId = impRecRet.BuscarFiltrado("", "", IdRecibo)
            For Each rowId As DataRow In dtsAuxId.Tables(0).Rows
                dtsAux = Retencion.BuscarFiltrado(rowId("IdRetencion").ToString(), "", "", "")
                For Each row As DataRow In dtsAux.Tables(0).Rows
                    Dim dr As DataRow = DtsImputaciones.Tables(0).NewRow()
                    dr("Nombre") = "Retencion"
                    dr("Total") = row("Importe").ToString()
                    dr("NumeroRetencion") = row("Numero").ToString()
                    dr("DescripcionRetencion") = row("Descripcion").ToString()
                    DtsImputaciones.Tables(0).Rows.Add(dr)
                Next
            Next
            Session("DtsListadoImputaciones") = DtsImputaciones
            GridImputacion.DataSource = DtsImputaciones
            GridImputacion.DataBind()
            ' BtnImprimir.OnClientClick = "javascript:var popup = window.open('../Reportes/RptListadoDeFacturas.aspx',(new Date().getTime()),'Width=900,Height=500,Scrollbars=NO,Resizable=NO,Location=NO,Menubar=NO,Status=NO,Titlebar=NO,Toolbar=NO')"
        End If



    End Sub


    Protected Sub GridImputacion_PageIndexChanging(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridImputacion.PageIndexChanging
        GridImputacion.PageIndex = e.NewPageIndex
        GridImputacion.DataSource = Session("DtsListadoImputaciones")
        GridImputacion.DataBind()

    End Sub
End Class